/*
*
* Template Numerical Toolkit (TNT)
*
* Mathematical and Computational Sciences Division
* National Institute of Technology,
* Gaithersburg, MD USA
*
*
* This software was developed at the National Institute of Standards and
* Technology (NIST) by employees of the Federal Government in the course
* of their official duties. Pursuant to title 17 Section 105 of the
* United States Code, this software is not subject to copyright protection
* and is in the public domain. NIST assumes no responsibility whatsoever for
* its use by other parties, and makes no guarantees, expressed or implied,
* about its quality, reliability, or any other characteristic.
*
*/



#ifndef TNT_ARRAY1D_H
#define TNT_ARRAY1D_H

//#include <cstdlib>
#include <iostream>

#ifdef TNT_BOUNDS_CHECK
#include <assert.h>
#endif


#include "tnt_i_refvec.h"

namespace TNT
{

  template <class T>
  class Array1D
  {

  private:

    /* ... */
    i_refvec<T> v_;
    int n_;
    T* data_;				/* this normally points to v_.begin(), but
                                 * could also point to a portion (subvector)
    							 * of v_.
                                */

    void copy_(T* p, const T*  q, int len) const;
    void set_(T* begin,  T* end, const T& val);


  public:

    typedef         T   value_type;


    Array1D();
    explicit Array1D(int n);
    Array1D(int n, const T &a);
    Array1D(int n,  T *a);
    inline   Array1D(const Array1D &A);
    inline   operator T*();
    inline   operator const T*();
    inline   Array1D & operator=(const T &a);
    inline   Array1D & operator=(const Array1D &A);
    inline   Array1D & ref(const Array1D &A);
    Array1D copy() const;
    Array1D & inject(const Array1D & A);
    inline   T& operator[](int i);
    inline   const T& operator[](int i) const;
    inline 	 int dim1() const;
    inline   int dim() const;
    ~Array1D();


    /* ... extended interface ... */

    inline int ref_count() const;
    inline Array1D<T> subarray(int i0, int i1);

  };




  template <class T>
  Array1D<T>::Array1D() : v_(), n_(0), data_(0) {}

  template <class T>
  Array1D<T>::Array1D(const Array1D<T> &A) : v_(A.v_),  n_(A.n_),
      data_(A.data_)
  {
#ifdef TNT_DEBUG
    std::cout << "Created Array1D(const Array1D<T> &A) \n";
#endif

  }


  template <class T>
  Array1D<T>::Array1D(int n) : v_(n), n_(n), data_(v_.begin())
  {
#ifdef TNT_DEBUG
    std::cout << "Created Array1D(int n) \n";
#endif
  }

  template <class T>
  Array1D<T>::Array1D(int n, const T &val) : v_(n), n_(n), data_(v_.begin())
  {
#ifdef TNT_DEBUG
    std::cout << "Created Array1D(int n, const T& val) \n";
#endif
    set_(data_, data_+ n, val);

  }

  template <class T>
  Array1D<T>::Array1D(int n, T *a) : v_(a), n_(n) , data_(v_.begin())
  {
#ifdef TNT_DEBUG
    std::cout << "Created Array1D(int n, T* a) \n";
#endif
  }

  template <class T>
  inline Array1D<T>::operator T*()
  {
    return &(v_[0]);
  }


  template <class T>
  inline Array1D<T>::operator const T*()
  {
    return &(v_[0]);
  }



  template <class T>
  inline T& Array1D<T>::operator[](int i)
  {
#ifdef TNT_BOUNDS_CHECK
    assert(i>= 0);
    assert(i < n_);
#endif
    return data_[i];
  }

  template <class T>
  inline const T& Array1D<T>::operator[](int i) const
  {
#ifdef TNT_BOUNDS_CHECK
    assert(i>= 0);
    assert(i < n_);
#endif
    return data_[i];
  }




  template <class T>
  Array1D<T> & Array1D<T>::operator=(const T &a)
  {
    set_(data_, data_+n_, a);
    return *this;
  }

  template <class T>
  Array1D<T> Array1D<T>::copy() const
  {
    Array1D A( n_);
    copy_(A.data_, data_, n_);

    return A;
  }


  template <class T>
  Array1D<T> & Array1D<T>::inject(const Array1D &A)
  {
    if (A.n_ == n_)
      copy_(data_, A.data_, n_);

    return *this;
  }





  template <class T>
  Array1D<T> & Array1D<T>::ref(const Array1D<T> &A)
  {
    if (this != &A)
    {
      v_ = A.v_;		/* operator= handles the reference counting. */
      n_ = A.n_;
      data_ = A.data_;

    }
    return *this;
  }

  template <class T>
  Array1D<T> & Array1D<T>::operator=(const Array1D<T> &A)
  {
    return ref(A);
  }

  template <class T>
  inline int Array1D<T>::dim1() const { return n_; }

  template <class T>
  inline int Array1D<T>::dim() const { return n_; }

  template <class T>
  Array1D<T>::~Array1D() {}


  /* ............................ exented interface ......................*/

  template <class T>
  inline int Array1D<T>::ref_count() const
  {
    return v_.ref_count();
  }

  template <class T>
  inline Array1D<T> Array1D<T>::subarray(int i0, int i1)
  {
    if ((i0 > 0) && (i1 < n_) || (i0 <= i1))
    {
      Array1D<T> X(*this);  /* create a new instance of this array. */
      X.n_ = i1-i0+1;
      X.data_ += i0;

      return X;
    }
    else
    {
      return Array1D<T>();
    }
  }


  /* private internal functions */


  template <class T>
  void Array1D<T>::set_(T* begin, T* end, const T& a)
  {
    for (T* p=begin; p<end; p++)
      *p = a;

  }

  template <class T>
  void Array1D<T>::copy_(T* p, const T* q, int len) const
  {
    T *end = p + len;
    while (p<end )
      *p++ = *q++;

  }


} /* namespace TNT */

#endif
/* TNT_ARRAY1D_H */

